home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / spanish abc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  73 lines
  1. 4 ifa=1 then 7
  2. 5 poke53280,6:poke53281,6
  3. 6 print"[147][208]lease wait..."
  4. 7 ifa=0thena=1:load"bload.o",8,1
  5. 10 sys828,51200,"spanchar"
  6. 12 poke53265,peek(53265)and239
  7. 13 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0
  8. 14 poke53272,(peek(53272)and240)or2
  9. 15 poke648,196
  10. 17 print"[147]":gosub6100
  11. 22 poke53265,peek(53265)or16
  12. 30 ford=1to250:next
  13. 40 gosub 6300
  14. 50 print"[158] [204][207][193][196][211][212][193][210] [208]roudly"
  15. 51 print"   [208]resents "
  16. 52 ford=1to2000:next:gosub6300:gosub 6100
  17. 53 gosub 6300
  18. 60 print"[158][153] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  19. 61 print"[176][190]                [188][174]"
  20. 62 print"[221]      [211][208][193][206][201][211][200]     [221]"
  21. 63 print"[221]   [197]asy as [193]-[194]-[195]  [221]"
  22. 64 print"[173][187]                [172][189]"
  23. 65 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  24. 66 print"[158]             ([195])opyright 1988
  25. 67 [129]d[178]1[164]2000:[130]:[141]6300
  26. 68 [153]"                                        
  27. 69 gosub6100:gosub 6300
  28. 70 print"[158]   [215]ritten by
  29. 71 [153]"sys (NULL)homas lenanfield"
  30. 77 [129]d[178]1[164]2000:[130]:[141]6300
  31. 87 [141]6100:[141] 6300
  32. 88 [153]"sys   (NULL)lease wait
  33. 89 print"[158]  while loading.
  34. 90 fl$[178]"spanish main"
  35. 91 c$[178]"loadfl$,8"[170][199](0)
  36. 95 [129]i[178]1[164][195](c$)
  37. 96 [151]511[170]i,[198]([202](c$,i)):[130]i
  38. 97 [151]631,[198]("load"):[151]632,[198]("r"):[151]633,[198]("u"):[151]634,[198]("n")
  39. 98 [151]635,13:[151]198,6:[151]781,255:[151]782,1
  40. 99 [158]42118:[128]
  41. 6000 [153]"":[128]
  42. 6100 [151]53280, 9:[151]53281, 9:[153]"";
  43. 6105 [153]"for totototototo totototototo totototototo totototototo totototototo "
  44. 6110 [153]"then     wait\then     wait\then     wait\then     wait\then     wait\ "
  45. 6115 [153]"then \then \then \then \then \ "
  46. 6120 [153]"then  wait\ then  wait\ then  wait\ then  wait\ then  wait\  "
  47. 6125 [153]"then wait\ then wait\ then wait\ then wait\ then wait\  "
  48. 6130 [153]"then \   then \   then \   then \   then \    "
  49. 6135 [153]"thenwait\thenwait\thenwait\thenwait\thenwait\ "
  50. 6140 [153]" totototototo totototototo totototototo totototototo totototototo "
  51. 6145 [153]"then     wait\then     wait\then     wait\then     wait\then     wait\ "
  52. 6150 [153]"then \then \then \then \then \ "
  53. 6155 [153]"then  wait\ then  wait\ then  wait\ then  wait\ then  wait\  "
  54. 6160 [153]"then wait\ then wait\ then wait\ then wait\ then wait\  "
  55. 6165 [153]"then \   then \   then \   then \   then \    "
  56. 6170 [153]"thenwait\thenwait\thenwait\thenwait\thenwait\ "
  57. 6175 [153]" totototototo totototototo totototototo totototototo totototototo "
  58. 6180 [153]"then     wait\then     wait\then     wait\then     wait\then     wait\ "
  59. 6185 [153]"then \then \then \then \then \ "
  60. 6190 [153]"then  wait\ then  wait\ then  wait\ then  wait\ then  wait\  "
  61. 6195 [153]"then wait\ then wait\ then wait\ then wait\ then wait\  "
  62. 6200 [153]"then \   then \   then \   then \   then \    "
  63. 6205 [153]"thenwait\thenwait\thenwait\thenwait\thenwait\ "
  64. 6210 [153]"                                    "
  65. 6220 [142]
  66. 6300 [153]"                    "
  67. 6301 [153]"                    "
  68. 6302 [153]"                    "
  69. 6303 [153]"                    "
  70. 6304 [153]"                    "
  71. 6305 [153]"                    "
  72. 6306 [142]
  73.